home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
comm
/
zcommbar.zip
/
414.T
< prev
next >
Wrap
Text File
|
1987-12-22
|
1KB
|
26 lines
begin: ena -8g;cls;lput \r
lput " ╒ 414 Directory ════════════════════╕\r\n"
lput " │ a - EXEC-PC │\r\n"
lput " │ b - PEP │\r\n"
lput " │ c - PC Express │\r\n"
lput " │ d - TVRO Satellite BBS │\r\n"
lput " │ e - EXEX-PC #2 │\r\n"
lput " │ f - Serious User │\r\n"
lput " │ g - EXEC-PC - 2 │\r\n"
lput " │ 1 - New City 0 - Redial │\r\n"
lput " ╘═══════════════════════════════════╛\r\n"
acceptl1 s1 "Letter ?"
if is1,g put "d963-2916\r"
if is1,f put "d762-6411\r"
if is1,e put "d963-2898\r"
if is1,d put "d375-1923\r"
if is1,c put "d327-5300\r"
if is1,b put "d291-6989\r"
if is1,a put "d964-5160\r"
if is1,1 break; put \rD\r;call city.pursuit.t
if is1,0 put r\r;pat 1 S?;wait;put 5\r
pat 1i LINE;pat 2 *;wait
if !1 goback begin
t